Shum Gallery - Viewing Screen

<% dim id,Connect, Query,text,bg id= request("id") If id= "" Then Response.Write "Oops... no pics here!.

" Else Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "gallery" Query = "SELECT id,date,filename,path,description,series,bg FROM main WHERE id=" & id Set bclssb = Connect.Execute(Query) %>

/<%=bclssb("filename")%>">

<%=bclssb("description")%>

Taken <%=bclssb("date")%> <%=bclssb("filename")%>

<% end if %>